home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / qbwinfnt.zip / EX_BLDFT.BAS < prev    next >
BASIC Source File  |  1994-03-01  |  1KB  |  32 lines
  1.       REM:  EX_BLDFT.BAS, Unregistered Version 1.0
  2.       REM:  Example of using BLOAD to load a font array.
  3.  
  4.       DECLARE SUB BLOADFont (FlName$, FontArray%(), RetCode%)
  5.       DECLARE SUB FastString (Text$, FClr%, X%, Y%, FontArray%())
  6.      
  7.       '...setup a VGA screen mode...
  8.       SCREEN 12
  9.      
  10.       '...dimen array for font data (use REDIM so its DYNAMIC)...
  11.       REDIM FontArray%(1)
  12.     
  13.       PRINT : PRINT "BLOAD'ing a font from DTCH_BLD.BIN..."
  14.     
  15.       '...load the font in one of the example BIN files...
  16.       CALL BLOADFont("DTCH_BLD.BIN", FontArray%(), RetCode%)
  17.  
  18.       '...check return code, catches non-existent file...
  19.       IF (RetCode% <> 0) THEN STOP
  20.      
  21.       '...get the height for below...
  22.       Ht% = FontArray%(0)
  23.  
  24.       '...display the capitals, lower case, & numbers...
  25.       CALL FastString("ABCDEFGHIJKLMNOPQRSTUVWXYZ", 4, 80, 100, FontArray%())
  26.       CALL FastString("abcdefghijklmnopqrstuvwxyz", 4, 80, 100 + Ht%, FontArray%())
  27.       CALL FastString("1234567890", 4, 80, 100 + 2 * Ht%, FontArray%())
  28.  
  29.       END
  30.     
  31.  
  32.